home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995…tember: Reference Library / Dev.CD Sep 95 RL / Dev.CD Sep 95 RL.toast / mac / Technical Documentation / develop / develop Issue 20 code / Pict Tricks / Batch CLUTLess / Shell Files / Shell.c < prev    next >
Encoding:
Text File  |  1994-10-14  |  960 b   |  51 lines  |  [TEXT/MMCC]
  1. //---------------------------------------------------------------------
  2. //---------------------------------------------------------------------
  3. //
  4. //    Horrible Rickety Shell, by Dave Johnson
  5. //
  6. //    © Copyright 1985 - 1994 Anyone Who Wants It,
  7. //    All Rights Energetically Heaved as far away from me as possible.
  8. //    Use at your own (considerable) risk.
  9.  
  10.  
  11. #include    "Shell.h"
  12.  
  13. Boolean            gDoneFlag = false;
  14. Rect            gDeskRect;
  15. MenuHandle        gShellMenuHandles[kNumShellMenus];
  16. long            gClickTime;
  17.  
  18.  
  19. void main (void)
  20. {
  21.        EventRecord        theEvent;
  22.     CursHandle        Curs;
  23.     
  24.     FlushEvents (everyEvent - diskMask, 0 );
  25.     MaxApplZone();
  26.     InitGraf (&qd.thePort);
  27.     InitFonts ();
  28.     InitWindows ();
  29.     InitMenus ();
  30.     TEInit ();
  31.     InitDialogs (nil);
  32.     InitCursor ();
  33.  
  34.     Curs = GetCursor(watchCursor);
  35.     SetCursor(*Curs);
  36.  
  37.     initshell();
  38.  
  39.     InitCursor();
  40.     
  41.     while(gDoneFlag == false)
  42.     {
  43.         UnloadSeg(initshell);
  44.         WaitNextEvent(everyEvent, &theEvent, 0, nil);
  45.         DoEvent(&theEvent);
  46.     }
  47.     BailOut();
  48. }
  49.  
  50.     
  51.